home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / browser / browsing.frm next >
Text File  |  1996-10-29  |  12KB  |  371 lines
  1. VERSION 4.00
  2. Begin VB.Form fCrypt 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Crypt"
  6.    ClientHeight    =   4860
  7.    ClientLeft      =   1410
  8.    ClientTop       =   1875
  9.    ClientWidth     =   12570
  10.    ClipControls    =   0   'False
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H00000080&
  21.    Height          =   5265
  22.    Left            =   1350
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   4860
  26.    ScaleWidth      =   12570
  27.    Top             =   1530
  28.    Width           =   12690
  29.    Begin VB.PictureBox picShowCont 
  30.       BorderStyle     =   0  'None
  31.       Height          =   495
  32.       Left            =   3480
  33.       ScaleHeight     =   495
  34.       ScaleWidth      =   8655
  35.       TabIndex        =   7
  36.       Top             =   600
  37.       Visible         =   0   'False
  38.       Width           =   8655
  39.       Begin VB.PictureBox picShow 
  40.          BorderStyle     =   0  'None
  41.          Height          =   495
  42.          Left            =   0
  43.          ScaleHeight     =   495
  44.          ScaleWidth      =   495
  45.          TabIndex        =   8
  46.          Top             =   0
  47.          Width           =   495
  48.       End
  49.       Begin VB.Label lblShow 
  50.          BeginProperty Font 
  51.             name            =   "MS Sans Serif"
  52.             charset         =   0
  53.             weight          =   400
  54.             size            =   8.25
  55.             underline       =   0   'False
  56.             italic          =   0   'False
  57.             strikethrough   =   0   'False
  58.          EndProperty
  59.          Height          =   195
  60.          Left            =   600
  61.          TabIndex        =   9
  62.          Top             =   120
  63.          Width           =   7815
  64.          WordWrap        =   -1  'True
  65.       End
  66.    End
  67.    Begin VB.PictureBox picDefault 
  68.       AutoSize        =   -1  'True
  69.       Height          =   540
  70.       Left            =   10200
  71.       Picture         =   "Browsing kinda.frx":0000
  72.       ScaleHeight     =   32
  73.       ScaleMode       =   3  'Pixel
  74.       ScaleWidth      =   32
  75.       TabIndex        =   6
  76.       Top             =   4680
  77.       Visible         =   0   'False
  78.       Width           =   540
  79.    End
  80.    Begin VB.PictureBox picBuff 
  81.       AutoRedraw      =   -1  'True
  82.       Height          =   540
  83.       Left            =   10920
  84.       Picture         =   "Browsing kinda.frx":030A
  85.       ScaleHeight     =   32
  86.       ScaleMode       =   3  'Pixel
  87.       ScaleWidth      =   32
  88.       TabIndex        =   4
  89.       Top             =   4680
  90.       Visible         =   0   'False
  91.       Width           =   540
  92.    End
  93.    Begin VB.PictureBox picSize 
  94.       BorderStyle     =   0  'None
  95.       Height          =   3615
  96.       Left            =   3360
  97.       MouseIcon       =   "Browsing kinda.frx":0614
  98.       MousePointer    =   99  'Custom
  99.       ScaleHeight     =   3615
  100.       ScaleWidth      =   135
  101.       TabIndex        =   3
  102.       Top             =   600
  103.       Width           =   135
  104.    End
  105.    Begin VB.DirListBox dirList 
  106.       Height          =   3180
  107.       Left            =   120
  108.       TabIndex        =   1
  109.       Top             =   1200
  110.       Width           =   3135
  111.    End
  112.    Begin VB.DriveListBox drvList 
  113.       Height          =   315
  114.       Left            =   120
  115.       TabIndex        =   0
  116.       Top             =   600
  117.       Width           =   3135
  118.    End
  119.    Begin VB.FileListBox filList 
  120.       Height          =   255
  121.       Left            =   8160
  122.       TabIndex        =   2
  123.       Top             =   5280
  124.       Visible         =   0   'False
  125.       Width           =   3495
  126.    End
  127.    Begin ComctlLib.StatusBar fStatB 
  128.       Align           =   2  'Align Bottom
  129.       Height          =   330
  130.       Left            =   0
  131.       TabIndex        =   10
  132.       Top             =   4530
  133.       Width           =   12570
  134.       _Version        =   65536
  135.       _ExtentX        =   22172
  136.       _ExtentY        =   582
  137.       _StockProps     =   68
  138.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  139.          name            =   "MS Sans Serif"
  140.          charset         =   0
  141.          weight          =   400
  142.          size            =   8.25
  143.          underline       =   0   'False
  144.          italic          =   0   'False
  145.          strikethrough   =   0   'False
  146.       EndProperty
  147.       AlignSet        =   -1  'True
  148.       Style           =   1
  149.       SimpleText      =   ""
  150.       i1              =   "Browsing kinda.frx":091E
  151.    End
  152.    Begin ComctlLib.ImageList imgFiles 
  153.       Left            =   9600
  154.       Top             =   4680
  155.       _Version        =   65536
  156.       _ExtentX        =   1005
  157.       _ExtentY        =   1005
  158.       _StockProps     =   1
  159.       BackColor       =   -2147483643
  160.       MaskColor       =   12632256
  161.    End
  162.    Begin ComctlLib.ListView lvwFiles 
  163.       Height          =   3255
  164.       Left            =   3480
  165.       TabIndex        =   5
  166.       Top             =   1200
  167.       Width           =   8655
  168.       _Version        =   65536
  169.       _ExtentX        =   15266
  170.       _ExtentY        =   5741
  171.       _StockProps     =   205
  172.       ForeColor       =   -2147483640
  173.       BackColor       =   -2147483643
  174.       Appearance      =   1
  175.       Arrange         =   1
  176.       HideSelection   =   0   'False
  177.       Icons           =   ""
  178.       LabelEdit       =   1
  179.       MultiSelect     =   -1  'True
  180.       SmallIcons      =   ""
  181.       View            =   1
  182.    End
  183. End
  184. Attribute VB_Name = "fCrypt"
  185. Attribute VB_Creatable = False
  186. Attribute VB_Exposed = False
  187. Option Explicit
  188.  
  189. Private Declare Function cFileCrypt Lib "t2win-32.dll" (ByVal File1 As String, ByVal File2 As String, ByVal Password As String) As Long
  190. Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
  191. Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
  192. Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
  193. Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
  194. Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Boolean
  195.  
  196. Private Const fSizeW = 45 'width of sizing picture box
  197. Private fLastX As Single 'used for drawing sizing line
  198. Private icoWidth As Integer
  199. Private fHog As Boolean
  200. Private Function Crypt(FName As String, PW As String) As Boolean
  201.   'encrypts/decrypts file to the same name
  202.   On Error GoTo CErr
  203.   Dim FTemp As String, lRet As Long
  204.   Crypt = False
  205.   FTemp = FName & "tesseract"
  206.   lRet = cFileCrypt(FName, FTemp, PW)
  207.   If lRet < 0 Then Exit Function
  208.   Kill FName
  209.   Name FTemp As FName
  210.   Crypt = True
  211.   Exit Function
  212. CErr:
  213.   Crypt = False
  214.   MsgBox "Error: " & Error(Err), vbCritical, "Error"
  215.   Exit Function
  216. End Function
  217.  
  218. Private Sub SmartVisible(C As Control, F As Boolean)
  219.   If (C.Visible <> F) Then C.Visible = F
  220. End Sub
  221.  
  222. Private Sub Talk(Optional Msg)
  223.   If fHog Then Exit Sub
  224.   If IsMissing(Msg) Then
  225.     If fStatB.SimpleText <> "" Then fStatB.SimpleText = ""
  226.   Else
  227.     If fStatB.SimpleText <> Msg Then fStatB.SimpleText = Msg
  228.   End If
  229. End Sub
  230.  
  231.  
  232. Private Sub Command2_Click()
  233.   Set Picture1.Picture = imgFiles.ListImages(1).Picture
  234. End Sub
  235.  
  236.  
  237. Private Sub Command3_Click()
  238. End Sub
  239.  
  240. Private Sub Command1_Click()
  241. End